home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / isetl.arc / defins.t < prev    next >
Text File  |  1987-08-20  |  387b  |  20 lines
  1.    insert := func(f,id);
  2.         return func(S); local i,part;
  3.                 part := id;
  4.                 for i in S do
  5.                 part := f(part,i);
  6.                 end;
  7.                 return part;
  8.                end;
  9.          end;
  10.  
  11.    sum := insert( func(a,b); return a+b; end, 0 );
  12.    prod := insert( func(a,b); return a*b; end, 1 );
  13.    fact := func(N); return prod([1..N]); end;
  14.  
  15. sum([1..10]);
  16. sum([10,11,12]);
  17. fact(3);
  18. fact(4);
  19. fact(10);
  20.